COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "OPERAT[PNT,HE]" LOAD_MODULE
C00009 ENDMK
C⊗;
REQUIRE "OPERAT[PNT,HE]" LOAD_MODULE;

! REQUIRE "ARITH[PNT,HE]" LOAD_MODULE;

EXTERNAL SIMPLE  PROCEDURE INVXFX(REAL ARRAY A,B,C);
EXTERNAL SIMPLE  PROCEDURE XFINV(REAL ARRAY A,B);
EXTERNAL SIMPLE  PROCEDURE XFXF(REAL ARRAY A,B,C);
EXTERNAL PROCEDURE DECODE (REAL ARRAY XF; REFERENCE REAL A,B,C);
EXTERNAL SIMPLE  PROCEDURE SETROT(REAL ARRAY XF;REAL W,PH,TH);

	! NOT CALLED IN POINTY;

EXTERNAL SIMPLE  PROCEDURE XYZROT(REAL ARRAY XF; REAL ANGLE,CX,CY,CZ);
EXTERNAL PROCEDURE EULERO(REAL ARRAY XF;REFERENCE REAL W,PH,TH);
EXTERNAL SIMPLE  PROCEDURE XFVT(REAL ARRAY A,B,C);



EXTERNAL PROCEDURE LINKFR(RPTR(FRAME) N,D);	
EXTERNAL PROCEDURE UNLINK(RPTR(FRAME) N);
EXTERNAL RPTR(TRANS) PROCEDURE ABSLOC(RPTR(FRAME) ND);
EXTERNAL PROCEDURE SETABS(RPTR(FRAME) N;REAL ARRAY XF);
EXTERNAL PROCEDURE ABSXF(RPTR(FRAME) N;REAL ARRAY XF);
EXTERNAL RPTR(FRAME)PROCEDURE OPFRVT(RPTR(VECTOR) VAL1;RPTR(FRAME)VAL2;STRING OP);
EXTERNAL PROCEDURE ABSSET(RPTR(FRAME) FRA;RPTR(TRANS)XFE);
EXTERNAL RPTR(VECTOR) PROCEDURE TPOS(RPTR(TRANS)XFE);
EXTERNAL RPTR (TRANS)PROCEDURE VVVTR (RPTR(VECTOR)V1,V2,V3;
				INTEGER F_AXIS(2),S_AXIS(0));

	! NOT CALLED IN POINTY;

EXTERNAL RPTR(VECTOR) PROCEDURE NMSUB(RPTR(VECTOR) V1,V2);
EXTERNAL RPTR(VECTOR) PROCEDURE NMCROS(RPTR(VECTOR)V1,V2);
EXTERNAL RPTR (FRAME)PROCEDURE CONSF(RPTR(FRAME)F1,F2,F3);
EXTERNAL RPTR (FRAME)PROCEDURE CONSV(RPTR(VECTOR)F1,F2,F3);
EXTERNAL RPTR(TRANS) PROCEDURE TMAKE(RPTR(ROT)TMPRT;RPTR(VECTOR)TMPVT);
EXTERNAL RPTR(ROT)PROCEDURE RMAKE(RPTR(VECTOR)AX;RPTR(SCALAR)ANGLE);
EXTERNAL RPTR(FRAME) PROCEDURE FMAKE(RPTR(ROT)TMPRT;RPTR(VECTOR)TMPVT);
EXTERNAL RPTR(VECTOR) PROCEDURE VMAKE(RPTR(SCALAR)R1,R2,R3);
EXTERNAL RPTR(VECTOR) PROCEDURE NORMVT(RPTR(VECTOR)EL);
EXTERNAL SIMPLE  PROCEDURE GETVTV(RPTR(VECTOR) EL; REAL ARRAY COMP);
EXTERNAL SIMPLE  PROCEDURE PUTVTV (RPTR(VECTOR) EL; REAL ARRAY COMP);
EXTERNAL PROCEDURE RELSET(RPTR(FRAME)FRA;RPTR(TRANS)XFE);
EXTERNAL RPTR(VECTOR)PROCEDURE RELVT(RPTR(VECTOR) VET;RPTR(FRAME) RELFR);
EXTERNAL RPTR(VECTOR)PROCEDURE WRTVT(RPTR(VECTOR) VET;RPTR(FRAME) RELFR);
EXTERNAL RPTR(FRAME) PROCEDURE RELFR(RPTR(FRAME)DAD;RPTR(TRANS)RELPOS);
EXTERNAL RPTR(ROT)PROCEDURE FORIEN(RPTR(FRAME)SEC);
EXTERNAL RPTR(SCALAR)PROCEDURE SMOD(RPTR(SCALAR)RIGHT);
EXTERNAL RPTR(SCALAR)PROCEDURE VMOD(RPTR(VECTOR)RIGHT);
EXTERNAL RPTR(VECTOR) PROCEDURE FPOS(RPTR(FRAME)SEC);
EXTERNAL RPTR(VECTOR) PROCEDURE OPVTFR(RPTR(FRAME) VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(SCALAR)PROCEDURE OPDOT(RPTR(VECTOR)VAL1,VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPVET(RPTR(VECTOR) VAL1,VAL2;STRING OP);
EXTERNAL RPTR(ROT)PROCEDURE OPRTRT(RPTR(ROT)VAL1,VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPRTVT(RPTR(ROT)VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(VECTOR)PROCEDURE OPTRVT(RPTR(TRANS)VAL1;RPTR(VECTOR)VAL2);
EXTERNAL RPTR(TRANS)PROCEDURE OPFRFR(RPTR(FRAME)VAL1,VAL2);
EXTERNAL RPTR(FRAME) PROCEDURE OPFR(RPTR(FRAME)VAL1,VAL2);
EXTERNAL RPTR(FRAME)PROCEDURE OPTRFR(RPTR(TRANS)VAL1;RPTR(FRAME)VAL2);
EXTERNAL RPTR(TRANS)PROCEDURE OPTRTR(RPTR(TRANS)VAL1,VAL2);